home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / SimpleFaro.dxr / Internal_5_Bet On Me.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.2 KB  |  36 lines
  1. property spriteNum, card, betnumber, sharpee, chipPiece, denomination, alreadyBetOn
  2. global gPlayerBets, chip, chipLoc, points, playerCredits
  3.  
  4. on getPropertyDescriptionList me
  5.   return [#sharpee: [#comment: "none", #format: #string, #default: "sprite(?)"]]
  6. end
  7.  
  8. on beginSprite me
  9.   card = sprite(spriteNum)
  10.   denomination = card.member.name.symbol
  11.   chipPiece = value(sharpee)
  12.   betnumber = ("B" & string(spriteNum)).symbol
  13.   alreadyBetOn = 0
  14. end
  15.  
  16. on mouseDown me, argu
  17.   if points > 0 then
  18.     if not voidp(chip) then
  19.       if not alreadyBetOn then
  20.         if (value(member(string(denomination) && "text", "case keeper").char[1]) + value(member(string(denomination) && "text", "case keeper").char[3])) < 4 then
  21.           if gPlayerBets.count < 5 then
  22.             puppetSound(6, member("number select"))
  23.             gPlayerBets.addProp(betnumber, new(script("player bet"), #single, 50, denomination, chip, gPlayerBets))
  24.             chipLoc = sprite(spriteNum).loc
  25.             chipPiece.member = string(chip)
  26.             chipPiece.loc = chipLoc
  27.             points = points - 50
  28.             playerCredits.text = string(points)
  29.             alreadyBetOn = 1
  30.           end if
  31.         end if
  32.       end if
  33.     end if
  34.   end if
  35. end
  36.